home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / amigaoberland / uptodate_v1.2 / uptodate-install1.dms / uptodate-install1.adf / Install UpToDate < prev    next >
Text File  |  1995-08-07  |  7KB  |  225 lines
  1. ; $VER:UpToDate Install 1.2 (18.4.95)
  2.  
  3. (set @app-name "UpToDate 1.0")
  4.  
  5. (set @language "deutsch")
  6.  
  7. (welcome "Willkommen im Installationsprogramm von UpToDate!")
  8.  
  9. (set Ok 0)
  10. (set omp (cat "Einen Moment bitte..." newline))
  11.  
  12. (complete 0)
  13.  
  14. (set savedest @default-dest)
  15.  
  16. (message "\n\nUpToDate Installationsskript V1.2.\n"
  17.             "Dieses Skript installiert UpToDate V1.2 auf Ihrem Amiga.\n"
  18.             "\nBitte lesen Sie vor der Benutzung unbedingt das README-File und das Handbuch!\n"
  19.             "\n©1994-1995 by Sebastian Rieger"
  20. )
  21.  
  22. (if (< (/ (getversion) 65536) 37)
  23. (
  24.         (abort "UpToDate benötigt mindestens Workbench 2.04!")
  25. ))
  26.  
  27. (set newdest (askdir (prompt "Bitte geben Sie den Pfad an, in dem UpToDate installiert werden soll.")
  28. (help (cat "In diesem Einstellungsfenster können Sie den Pfad eingeben, in dem UpToDate \
  29. installiert werden soll.\nSie können sowohl das von Ihnen gewünschte Laufwerk, als auch die Schublade angeben, in der das Programm gespeichert werden soll.\n\nHinweis: Es \
  30. wird eine eigene Schublade für das Programm angelegt!\n\n" @askdir-help))
  31. (default (tackon savedest "UpToDate"))
  32. (newpath))
  33. )
  34.  
  35. (if (= (exists newdest) 0)
  36.      (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  37.           (help @makedir-help)
  38.           (infos))
  39. )
  40.  
  41. (set @default-dest newdest)
  42. (complete 5)
  43.  
  44. (copylib
  45.     (prompt "Copying/Updating CanDo.Library")
  46.     (help
  47.         "Die CanDo.library wird zum Start von UpToDate benötigt.\n"
  48.         "\nCanDo Legal Notice\n"
  49.         "\nThis program was designed and written with CanDo v3.0 ©1994.\n"
  50.         "Inovatronics, Inc.\n"
  51.         "8499 Greenville Ave. #209B\n"
  52.         "Dallas TX  75231  USA\n"
  53.         "(214)340-4991, FAX 340-8514\n"
  54.         "\nCanDo, Deckbrowser and their\n"
  55.         "support libraries are the\n"
  56.         "copyrighted sole property of\n"
  57.         "Inovatronics, Inc.  Reproduction\n"
  58.         "and distribution for any use other\n"
  59.         "than non-commercial applications\n"
  60.         "is strictly prohibited.\n\n"
  61.         @copylib-help
  62.     )
  63.     (source "UpToDate:Libs/CanDo.Library")
  64.     (dest "Libs:")
  65.     (confirm)
  66. )
  67.  
  68. (copylib
  69.     (prompt "Copying/Updating AmigaGUIDE.Library")
  70.     (help
  71.         "Die AmigaGUIDE.library wird für die Hilfe von UpToDate benötigt.\n"
  72.         @copylib-help
  73.     )
  74.     (source "UpToDate:Libs/AmigaGUIDE.Library")
  75.     (dest "Libs:")
  76.     (confirm)
  77. )
  78.  
  79. (copylib
  80.     (prompt "Copying/Updating ASL.Library")
  81.     (help
  82.         "Die ASL.library wird für den Filerequester von UpToDate benötigt.\n"
  83.         @copylib-help
  84.     )
  85.     (source "UpToDate:Libs/ASL.Library")
  86.     (dest "Libs:")
  87.     (confirm)
  88. )
  89.  
  90. (set ToDo (askoptions (prompt "Bitte wählen Sie die Programmteile, die Sie installieren möchten:")
  91.                       (help @askoptions-help)
  92.                       (choices "UpToDate installieren"
  93.                                "Utilities und Beispiele installieren")
  94.                       (default $3))
  95. )
  96.  
  97. (if (<> (BITAND ToDo $1) 0)
  98.  
  99.      ((copyfiles (prompt "Kopiere UpToDate Programmdateien...")
  100.                 (help (cat "Das Installationsprogramm kopiert die zum Start von UpToDate notwendigen Files in \
  101. das von Ihnen gewünschte Verzeichnis\n\n" @copyfiles-help))
  102.                 (source "UpToDate:")
  103.                 (dest @default-dest)
  104.                 (pattern "(UpToDate|SendSerial|Name|Feiertage|LicenseMe|ReadMe|Default)")
  105.                 (infos))
  106.  
  107.      (tooltype  (prompt "Gebe Icon frei...")
  108.                 (help @tooltype-help)
  109.                 (dest (tackon @default-dest "UpToDate"))
  110.                 (noposition))
  111.  
  112.      (tooltype  (prompt "Gebe Icon frei...")
  113.                 (help @tooltype-help)
  114.                 (dest (tackon @default-dest "LicenseMe"))
  115.                 (noposition))
  116.  
  117.      (complete 11)
  118.  
  119.      (copyfiles (prompt "Kopiere Overlays...")
  120.                 (help (cat " werden kopiert.\n\n" @copyfiles-help))
  121.                 (source "UpToDate:Overlays")
  122.                 (dest (tackon @default-dest "Overlays"))
  123.                 (all))
  124.  
  125.      )
  126.  
  127.  
  128. )
  129.  
  130. (copyfiles (prompt "Kopiere Preferencesfile...")
  131.         (help (cat " wird kopiert.\n\n" @copyfiles-help))
  132.         (source "UpToDate:")
  133.         (dest "env:")
  134.         (pattern "(UpToDate.prefs)")
  135.         (infos)
  136.  
  137. )
  138.  
  139. (complete 20)
  140.  
  141. (copyfiles (prompt "Kopiere Preferencesfile...")
  142.         (help (cat " wird kopiert.\n\n" @copyfiles-help))
  143.         (source "UpToDate:")
  144.         (dest "envarc:")
  145.         (pattern "(UpToDate.prefs)")
  146.         (infos)
  147.  
  148. )
  149.  
  150. (askdisk
  151.     (prompt "Bitte legen Sie die Disk \"UpToDate2\"ein.")
  152.     (help    "Diese Disk enthält sämtliche Beispieldateien,"
  153.         "sowie das UpToDate.GUIDE File."
  154.     )
  155.     (dest  "UpToDate2")
  156.     (newname "Up2")
  157. )
  158.  
  159. (if (<> (BITAND ToDo $1) 0)
  160.  
  161.      (copyfiles (prompt "Kopiere Setup...")
  162.                 (help (cat "Das Installationsprogramm kopiert das Setup \
  163. und das UpToDate.GUIDE.\n\n" @copyfiles-help))
  164.                 (source "Up2:")
  165.                 (dest @default-dest)
  166.                 (pattern "(Setup|UpToDate.guide)")
  167.                 (infos))
  168.  
  169.      (tooltype  (prompt "Gebe Icon frei...")
  170.                 (help @tooltype-help)
  171.                 (dest (tackon @default-dest "Setup"))
  172.                 (noposition))
  173.  
  174.      (tooltype  (prompt "Gebe Icon frei...")
  175.                 (help @tooltype-help)
  176.                 (dest (tackon @default-dest "UpToDate.guide"))
  177.                 (noposition))
  178.  
  179. )
  180.  
  181. (complete 50)
  182.  
  183. (if (<> (BITAND ToDo $2) 0)
  184.  
  185.      (copyfiles (prompt "Kopiere Utilities...")
  186.                 (help (cat " werden kopiert.\n\n" @copyfiles-help))
  187.                 (source "Up2:Utilities")
  188.                 (dest (tackon @default-dest "Utilities"))
  189.                 (all))
  190.  
  191. )
  192.  
  193. (if (<> (BITAND ToDo $2) 0)
  194.  
  195.      (copyfiles (prompt "Kopiere Beispiele...")
  196.                 (help (cat " werden kopiert.\n\n" @copyfiles-help))
  197.                 (source "Up2:Beispiele")
  198.                 (dest (tackon @default-dest "Beispiele"))
  199.                 (all))
  200.  
  201. )
  202.  
  203. (run ("Up2:Namensedit")
  204.     (prompt "Sie müssen jetzt Ihre persönliche Namensdatei erstellen. Diese Daten werden z.B. für den Serienbrief und den Ringordner benötigt.\n"
  205.         "Wenn Sie dies wünschen, so können Sie die Datei "Name" auch später mit einem Texteditor erstellen. Eine Musterdatei ist bereits installiert.\n\n"
  206.         "Wollen Sie die Datei jetzt mit Hilfe des Nameneditors editieren, so wählen Sie \"Proceed\".")
  207.     (help (cat "Sie müssen jetzt Ihre persönliche Namensdatei erstellen. Diese Daten werden z.B. für den Serienbrief und den Ringordner benötigt.\n"
  208.         "Wenn Sie dies wünschen, so können Sie die Datei "Name" auch später mit einem Texteditor erstellen. Eine Musterdatei ist bereits installiert.\n\n"))
  209.     (confirm)
  210. )
  211.  
  212. (copyfiles (prompt "Kopiere Namensdatei...")
  213.            (help (cat "wird kopiert.\n\n" @copyfiles-help))
  214.            (source "ram:")
  215.        (dest @default-dest)
  216.            (pattern "(Name)")
  217.            (infos)
  218. )
  219.  
  220. (run "delete ram:Name")
  221.  
  222. (complete 100)
  223.  
  224. (exit)
  225.